home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
c
/
EGCSWOSAlib.lha
/
src.lha
/
FastRand.c
< prev
next >
Wrap
C/C++ Source or Header
|
1998-08-02
|
125b
|
10 lines
#include <exec/types.h>
ULONG FastRand(ULONG seed)
{ ULONG a=seed<<1;
if((LONG)seed<=0)
a^=0x1d872b41;
return a;
}